63e98b11-8280-4c48-801d-5a51f900a3be 3 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

min(,) undocumented x constrains 2110 x - (* 260 x - 2 / 5128 x - (* 4 / 31 mat min :

x bound 1080 x - (* 7 / :

x constrains x bound 41 200 41 64 - 2 2 mat 80 200 80 64 - 2 2 mat 4 1 sys

D x 01001 range : i 1 x rows range C i el x i el constrains : for x C augment 31 line :

x y1 x constrains : x y2 x bound : 21 line

'N' random in critical region N 1000 :

data spec pts ~ 12 times faster i 1 data rows range p i el a b c spec : for v p 1 el : Unest 'p' j 2 p rows range v v p j el stack : for data v augment 61 line :

size/define critical region.
Plot first before filling xmin 32 - : xmax 200 : ymin 200 - : ymax 200 : 22 mat space_x xmax xmin - (: space_y ymax ymin - (: 21 line 21 sys

A function that tests an arbitrary point 
for its membership in the critical region. x y Test 1 y x y1 ≤ (* y x y2 ≥ (* :

A routine that finds an array of N random 
pairs in the critical region. Pts i 1 N range x 1 Random space_x * xmin + 1 el : y 1 Random space_y * ymin + 1 el : 1 x y Test - x 1 Random space_x * xmin + 1 el : y 1 Random space_y * ymin + 1 el : 21 line while P i 1 el x : P i 2 el y : 51 line for P 21 line :

a b c spec . 6 #808080 13 mat : fill Pts a b c spec pts : 21 line

Filling a range of a critial domain

x constrains x bound 41 200 41 64 - 2 2 mat 80 200 80 64 - 2 2 mat fill 5 1 sys

x f x constrains :

h 0.01 :

Infinitesimal Derivative x h f deriv 0.5 x h - f x f - x h - (x - / x f x h - f - x x h - (- / + (* (:

D x 0100 0.5 range : i 1 x rows range D i el x i el h f deriv : for x D augment 31 line :

d D Strip :

x Ω x h f deriv :

x Ω x 040 int 20 -

data Strip u data 1 col : v data 2 col : k 0 : i 1 data rows 1 - (range v i 1 + el v i el ≠ idx k k 1 + : el u i el : 11 line Undefined if 11 line for 21 line idx 41 line :

x h f deriv d 1 el 1 d 1 el 5 - 2 2 mat d 2 el 1 d 2 el 5 - 2 2 mat 3 1 sys

d 408021 mat